#Include 'Protheus.ch'

User Function TstMemo()
	
	Local	cMemo	:=	'elton teodoro alves italo teodoro alves biliati margareth gomes olga aparecida alves joao teodoro alves filho'
	local	lWrap	:=	.F.
	local	nTam	:=	15
	Local	nLines	:= 	MLCOUNT(cMemo,nTam,,lWrap)
	local	nx		:=	0
	
	for nx := 1 to nlines
		
		conout(MemoLine(cMemo,nTam,nX,,lWrap))
		conout(str(len(MemoLine(cMemo,nTam,nX,,lWrap))))
		
	next
	
	
Return

